CU Amiga Super CD-ROM 5/CU Amiga Magazine's Super CD-ROM 05 (1996)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1996-12].iso/cucd/programming/perl/lib/perl5/auto/posix/creat.al

Text File | 1996-09-10 | 212 b | 10 lines

# NOTE: Derived from ../../lib/POSIX.pm.  Changes made here will be lost.
package POSIX;

sub creat {
    usage "creat(filename, mode)" if @_ != 2;
    &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);
}

1;